﻿<Serializable()> _
Public Class Eproyecto

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _descProyecto As String
    Private _ubigeo As String
    Private _direccion As String
    Private _fchCreacion As String
    Private _fchModificacion As String
    Private _nroEtapas As Int32
    Private _areaProyecto As Decimal
    Private _precio As Decimal
    Private _nroInmuebles As Int32
    Private _fchaInicioObra As String
    Private _fchaFinObra As String
    Private _nroPartida As Int32
    Private _nroZonaRegional As Int32
    Private _descSede As String
    Private _email As String
    Private _observacion As String
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property descProyecto() As String
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property ubigeo() As String
        Get
            Return _ubigeo
        End Get
        Set(ByVal value As String)
            _ubigeo = value
        End Set
    End Property
    Public Property direccion() As String
        Get
            Return _direccion
        End Get
        Set(ByVal value As String)
            _direccion = value
        End Set
    End Property
    Public Property fchCreacion() As String
        Get
            Return _fchCreacion
        End Get
        Set(ByVal value As String)
            _fchCreacion = value
        End Set
    End Property
    Public Property fchModificacion() As String
        Get
            Return _fchModificacion
        End Get
        Set(ByVal value As String)
            _fchModificacion = value
        End Set
    End Property
    Public Property nroEtapas() As Int32
        Get
            Return _nroEtapas
        End Get
        Set(ByVal value As Int32)
            _nroEtapas = value
        End Set
    End Property
    Public Property areaProyecto() As Decimal
        Get
            Return _areaProyecto
        End Get
        Set(ByVal value As Decimal)
            _areaProyecto = value
        End Set
    End Property
    Public Property precio() As Decimal
        Get
            Return _precio
        End Get
        Set(ByVal value As Decimal)
            _precio = value
        End Set
    End Property
    Public Property nroInmuebles() As Int32
        Get
            Return _nroInmuebles
        End Get
        Set(ByVal value As Int32)
            _nroInmuebles = value
        End Set
    End Property
    Public Property fchaInicioObra() As String
        Get
            Return _fchaInicioObra
        End Get
        Set(ByVal value As String)
            _fchaInicioObra = value
        End Set
    End Property
    Public Property fchaFinObra() As String
        Get
            Return _fchaFinObra
        End Get
        Set(ByVal value As String)
            _fchaFinObra = value
        End Set
    End Property
    Public Property nroPartida() As Int32
        Get
            Return _nroPartida
        End Get
        Set(ByVal value As Int32)
            _nroPartida = value
        End Set
    End Property
    Public Property nroZonaRegional() As Int32
        Get
            Return _nroZonaRegional
        End Get
        Set(ByVal value As Int32)
            _nroZonaRegional = value
        End Set
    End Property
    Public Property descSede() As String
        Get
            Return _descSede
        End Get
        Set(ByVal value As String)
            _descSede = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As String, ByVal descProyecto As String)
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
    End Sub
    Public Sub New(ByVal idProyecto As String, ByVal descProyecto As String, ByVal ubigeo As String, ByVal direccion As String, _
                   ByVal fchCreacion As String, ByVal estado As String)
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.ubigeo = ubigeo
        Me.direccion = direccion
        Me.fchCreacion = fchCreacion
        Me.estado = estado
        Me.descEstado = IIf(descEstado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal ubigeo As String, ByVal direccion As String, _
                   ByVal fchCreacion As String, ByVal fchModificacion As String, ByVal nroEtapas As Int32, ByVal areaProyecto As Decimal, ByVal precio As Decimal, _
                   ByVal nroInmuebles As Int32, ByVal fchaInicioObra As String, ByVal fchaFinObra As String, ByVal nroPartida As Int32, _
                   ByVal nroZonaRegional As Int32, ByVal descSede As String, ByVal email As String, ByVal observacion As String, _
                   ByVal estado As String)
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.ubigeo = ubigeo
        Me.direccion = direccion
        Me.fchCreacion = fchCreacion
        Me.fchModificacion = fchModificacion
        Me.nroEtapas = nroEtapas
        Me.areaProyecto = areaProyecto
        Me.precio = precio
        Me.nroInmuebles = nroInmuebles
        Me.fchaInicioObra = fchaInicioObra
        Me.fchaFinObra = fchaFinObra
        Me.nroPartida = nroPartida
        Me.nroZonaRegional = nroZonaRegional
        Me.descSede = descSede
        Me.email = email
        Me.observacion = observacion
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

#End Region

End Class
